#Exerccio 1 - Introduo ao R
#Gustavo Agudelo. No. USP: 8893871


#1.1 Basta Mudar o Diretrio?

#1. Qual o comando voc usou para mudar o diretrio de trabalho?
#Resposta: Eu usei o comando getwd() para saber qual era o diretrio anterior, e depois usei o comando setwd() para mudar e corrijir para o novo diretrio..
getwd()
setwd("E:/Science/USP/Mestrado Fisiologia Geral_IB-USP/Disciplinas/Uso da Linguagem R para Anlise de Dados em Ecologia_2014-1/Exerccios R/Exerccios 1 - Introduo ao R")
getwd()
dir()
ls()
getwd()

#2.Este comando bastou para restituir o workspace? Se no, que outro comando  necessrio?
#Resposta: No bastou, no. Para restituir o workspace foi necessrio usar o comando load() e carregar o arquivo .RData, que deve estar no diretrio de trabalho.
load("Exerccio1_GA.RData")

#1.2 Um Comando Perigoso

#1. H um comando simples com a funo rm que apaga todos os objetos de sua rea de trabalho. Qual ?
#Resposta: O comando com a funo rm que apaga todos os objetos da rea de trabalho :
rm(list=ls())
ls()

#2.Suponha que voc tenha digitado este comando. De que maneira poderia evitar a perda definitiva de todos os objetos apagados?
#Resposta:  necessrio salvar constantemente o workspace com o comando save.image()
#Mas tambm  necessrio usar a janela do script para digitar os comandos e desde al enviar para o R Console. Se a gente constantemente est salvando o script, no tem problema se os resultados no R Console so apagados. s basta con enviar todo o script de novo.

#1.3 Classes de Objetos

##A distribuio bsica do R vem com os objetos letters e LETTERS.

#1. O que cada um contm?
letters
LETTERS
#letters: As letras minsculas do alfabeto
#LETTERS As letras MAISCULAS do alfabeto

#2. Descubra a classe de cada um?
class(letters)
class(LETTERS)
#Os dois objetos so caracteres

#3. Como voc os transformaria em objetos da classe fator?
letters <- as.factor(letters)
LETTERS <- as.factor(LETTERS)
class(letters)
class(LETTERS)
letters
LETTERS

#1.4 Bem-vindo ao notaR
carambola <- c("abacaxi", "beterraba")
salada <- c("beringela", "batata")

#1.5 Remoo Com Critrio
load("bichos.rdata")
ls()
rm(list=ls(pattern="temp"))
ls()
save(anfibios, aves, mamiferos, file="bichos01.rdata")

#1.6 Objetos de Data
Sys.Date()
hoje <- Sys.Date()
class(hoje)
hoje
copa.70 <- "1970-06-21"
copa.70
class(copa.70)
copa.70 <- as.Date(copa.70,fotmat="1970-06-21")
class(copa.70)
hoje - copa.70
dif <- hoje - copa.70
hoje + 43
outrodia <- hoje + 43


















